home *** CD-ROM | disk | FTP | other *** search
/ Armageddon - Interactive Preview / Interactive Preview: Armageddon.iso / pc / countend.dxr / 00001_startMovie.ls next >
Encoding:
Text File  |  1998-05-15  |  469 b   |  31 lines

  1. global gThisTime
  2.  
  3. on startMovie
  4.   startTimer()
  5.   set gThisTime to the timer
  6.   puppetSprite(1, 1)
  7.   cursor(280)
  8.   pass()
  9. end
  10.  
  11. on idle
  12.   if the timer > (gThisTime + 20) then
  13.     set thisMember to the memberNum of sprite 1
  14.     case thisMember of
  15.       3:
  16.         set the memberNum of sprite 1 to 4
  17.       4:
  18.         set the memberNum of sprite 1 to 3
  19.     end case
  20.     set gThisTime to the timer
  21.   end if
  22. end
  23.  
  24. on goNo
  25.   go(1, "CREDITS")
  26. end
  27.  
  28. on goYes
  29.   go(1, "CONTROL")
  30. end
  31.